
********************************************************************************
**#	FIGURE IA-3: Regression Discontinuity Plots of Placebo Threshold
********************************************************************************

*Set file path
capture cd "C:\Users\austin.starkweather\Dropbox\Research\CD&A Disclosure\Analysis"
capture cd "C:\Users\joshw\Dropbox\CD&A Disclosure\Analysis"
use "Data\Temp\cda_final80_final_n20610.dta", clear
set scheme s2color

********************************************************************************
*Panel A - Indicator 50%
********************************************************************************
rdplot eng_ind_p1 sop_for_iss if(sop_for_iss>=0.475 & sop_for_iss<=0.525), h(0.025 0.025) c(0.5) p(1) q(2) ci(95) shade play(rd_graph) nbins(6) graph_options(legend(off) graphregion(color(white)))
	graph export "Output\Final\rd_plot_475_525_ind.png", as(png) replace

********************************************************************************
*Panel B - Count 50%
********************************************************************************
rdplot ln_eng_num_p1 sop_for_iss if(sop_for_iss>=0.475 & sop_for_iss<=0.525), h(0.025 0.025) c(0.5) p(1) q(2) ci(95) shade play(rd_graph) graph_options(legend(off) graphregion(color(white)))
	graph export "Output\Final\rd_plot_475_525_count.png", as(png) replace

********************************************************************************
*Panel C - Indicator 90%
********************************************************************************
rdplot eng_ind_p1 sop_for_iss if(sop_for_iss>=0.875 & sop_for_iss<=0.925), h(0.025 0.025) c(0.9) p(1) q(2) ci(95) shade play(rd_graph) graph_options(legend(off) graphregion(color(white))) 
	graph export "Output\Final\rd_plot_875_925_ind.png", as(png) replace

********************************************************************************
*Panel D - Count 90%
********************************************************************************
rdplot ln_eng_num_p1 sop_for_iss if(sop_for_iss>=0.875 & sop_for_iss<=0.925), h(0.025 0.025) c(0.9) p(1) q(2) ci(95) shade play(rd_graph) graph_options(legend(off) graphregion(color(white)))
	graph export "Output\Final\rd_plot_875_925_count.png", as(png) replace
